home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 9 / The PC-SIG Library on CD ROM - Ninth Edition.iso / 301_400 / DISK0324 / DISK0324.ZIP / LOADER.INC < prev    next >
Text File  |  1985-01-06  |  512b  |  15 lines

  1.     END;
  2.   END.
  3.   PROCEDURE LOAD( PROC_OFFSET : INTEGER );
  4.  
  5.     VAR
  6.       HEADER_SIZE, I, ADDRESS : INTEGER;
  7.  
  8.     BEGIN
  9.       HEADER_SIZE := MEMW[ CSEG:PROC_OFFSET + 1 ];
  10.       I := PROC_OFFSET + 4;
  11.       WHILE ( I <= PROC_OFFSET + HEADER_SIZE + 3 ) DO
  12.         BEGIN
  13.           ADDRESS := MEMW[ CSEG:I ];
  14.           ADDRESS := ( I - ADDRESS + 1 ) XOR $FFFF;
  15.           MEMW[ CSEG:I ] := ADDR